home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
net
/
FingerInfo10.lha
/
FingerInfo
next >
Wrap
Text File
|
1994-05-03
|
3KB
|
77 lines
/* FingerInfo Rexx version 1.0 1994 by Bill Bereza (bereza@beech.csis.gvsu.edu)
*
* This program is based on the FingerInfo csh script by
* Scott A. Yanoff (yanoff@csd4.csd.uvm.edu), but contains no code
* from the original.
*
* This script is freeware ©1994 by Bill Bereza
*
*/
mo ="more"
tube ="Pipe"
poker="dfinger"
ans=1
fin.26="bereza@beech.csis.gvsu.edu"
fin.1 ="aurora@xi.uleth.ca"
fin.2 ="solar@xi.uleth.ca"
fin.3 ="daily@xi.uleth.ca"
fin.4 ="nichol@stavanger.sgp.slb.com"
fin.5 ="buckmr@rpi.edu"
fin.6 ="help@dir.su.oz.au"
fin.7 ="quake@geophys.washington.edu"
fin.8 ="nasanews@space.mit.edu"
fin.9 ="normg@halcyon.halcyon.com"
fin.10="yanoff@csd4.csd.uwm.edu"
fin.11="forecast@typhoon.atmos.colostate.edu"
fin.12="help@atk.itc.cmu.edu"
fin.13="coke@cs.cmu.edu"
fin.14="drink@drink.csh.rit.edu"
fin.15="graph@drink.csh.rit.edu"
fin.16="adam@mtv.com"
fin.17="hayden@vax1.mankato.msus.edu"
fin.18="hendry@helios.physics.utoronto.ca"
fin.19="copi@oddjob.uchicago.edu"
fin.20="franklin@ug.cs.dal.ca"
fin.21="cciscat@alpha.acast.nova.edu"
fin.22="nfl@spam.wicat.com"
fin.23="nflline@spam.wicat.com"
fin.24="cyndiw@magnus1.com"
fin.25="gunter@yarrow.wt.uwa.edu.au"
ans_max=26
do until ans=0
echo " * Welcome to FingerInfo *"
echo " Rexx ver.1.0 by Bill Bereza"
echo ""
echo "[1] Auroral Activity [13] MnM/Coke Machine at CMU"
echo "[2] 3-Hour Solar and Geophysical Report [14] Coke Machine in CS House at RIT"
echo "[3] Daily Solar and Geophysical Report [15] Graph of soda at RIT"
echo "[4] List of Periodic Postings to Usenet [16] Cyber-Sleaze Daily Report"
echo "[5] Billboard Charts [17] Code of the Geeks"
echo "[6] DataBases via Finger [18] Animaniacs Future Episodes"
echo "[7] Earthquake Info [19] Almanac Info/Sports Schedules"
echo "[8] NASA Headline News [20] Random Star Trek/TNG Quotes"
echo "[9] Nielsen TV Ratings [21] Nova U.'s Grad. Catalog"
echo "[10] Packer Scores/Standings [22] NFL Scores/Standings"
echo "[11] Tropical Storm Forecast [23] NFL Line Spread"
echo "[12] Remote Andrew Demo Service for X [24] Weekly Trivia"
echo " [25] Most Powerful Computing Sites"
echo ""
do until ans<=ans_max
writech(stdout,'Please select one of the above [or 0 to quit]: ')
PULL ans
end
if ans>0 then
ADDRESS COMMAND tube' 'poker' 'fin.ans' | 'mo
END
echo ""
echo "Thank you for using FingerInfo Rexx v1.0"
EXIT